home *** CD-ROM | disk | FTP | other *** search
- VERSION 2.00
- Begin Form Form1
- Caption = "VB Example 24"
- ClientHeight = 4665
- ClientLeft = 1260
- ClientTop = 1590
- ClientWidth = 7485
- Height = 5070
- Left = 1200
- LinkTopic = "Form1"
- ScaleHeight = 4665
- ScaleWidth = 7485
- Top = 1245
- Width = 7605
- Begin CommandButton UpdateZipComment
- Caption = "Update ZIP Comment"
- Height = 375
- Left = 5280
- TabIndex = 21
- Top = 600
- Width = 2055
- End
- Begin CommandButton WriteDirectory
- Caption = "Write Directory"
- Height = 375
- Left = 5280
- TabIndex = 20
- Top = 1080
- Width = 2055
- End
- Begin CommandButton UpdateFileComment
- Caption = "Update File Comment"
- Height = 375
- Left = 5280
- TabIndex = 19
- Top = 120
- Width = 2055
- End
- Begin TextBox ArchiveComment
- Height = 375
- Left = 1920
- TabIndex = 18
- Text = "Archive Comment"
- Top = 3240
- Width = 1575
- End
- Begin CommandButton Exit
- Caption = "Exit"
- Height = 375
- Left = 3720
- TabIndex = 17
- Top = 1080
- Width = 1335
- End
- Begin CommandButton About
- Caption = "About"
- Height = 375
- Left = 3720
- TabIndex = 16
- Top = 600
- Width = 1335
- End
- Begin TextBox Level
- Height = 375
- Left = 3840
- TabIndex = 15
- Text = "Level"
- Top = 1680
- Width = 1575
- End
- Begin CheckBox Directory
- BackColor = &H80000000&
- Caption = "Directory"
- Height = 375
- Left = 3840
- TabIndex = 14
- Top = 4200
- Width = 1215
- End
- Begin CheckBox Hidden
- BackColor = &H80000000&
- Caption = "Hidden"
- Height = 375
- Left = 3840
- TabIndex = 13
- Top = 3720
- Width = 975
- End
- Begin CheckBox Sys
- BackColor = &H80000000&
- Caption = "System"
- Height = 375
- Left = 3840
- TabIndex = 12
- Top = 3240
- Width = 975
- End
- Begin CheckBox Archive
- BackColor = &H80000000&
- Caption = "Archive"
- Height = 375
- Left = 3840
- TabIndex = 11
- Top = 2760
- Width = 975
- End
- Begin CheckBox ReadOnly
- BackColor = &H80000000&
- Caption = "ReadOnly"
- Height = 375
- Left = 3840
- TabIndex = 10
- Top = 2280
- Width = 1215
- End
- Begin TextBox TimeStamp
- Height = 375
- Left = 1920
- TabIndex = 9
- Text = "TimeStamp"
- Top = 2760
- Width = 1575
- End
- Begin TextBox DateStamp
- Height = 375
- Left = 1920
- TabIndex = 8
- Text = "DateStamp"
- Top = 2280
- Width = 1575
- End
- Begin TextBox crc
- Height = 375
- Left = 240
- TabIndex = 7
- Text = "crc"
- Top = 4200
- Width = 1575
- End
- Begin TextBox Size
- Height = 375
- Left = 240
- TabIndex = 6
- Text = "Size"
- Top = 3240
- Width = 1575
- End
- Begin TextBox CompressedSize
- Height = 375
- Left = 240
- TabIndex = 5
- Text = "CompressedSize"
- Top = 3720
- Width = 1575
- End
- Begin TextBox Comment
- Height = 375
- Left = 240
- TabIndex = 4
- Text = "Comment"
- Top = 2760
- Width = 1575
- End
- Begin TextBox FileName
- Height = 375
- Left = 240
- TabIndex = 3
- Text = "Text1"
- Top = 2280
- Width = 1575
- End
- Begin ListBox Contents
- Height = 1980
- Left = 1800
- TabIndex = 2
- Top = 120
- Width = 1695
- End
- Begin CommandButton Command1
- Caption = "Read Archive"
- Height = 375
- Left = 3720
- TabIndex = 1
- Top = 120
- Width = 1335
- End
- Begin FileListBox File1
- Height = 1980
- Left = 120
- Pattern = "*.zip"
- TabIndex = 0
- Top = 120
- Width = 1575
- End
- Begin SSPanel Panel3D1
- BackColor = &H00C0C0C0&
- FloodShowPct = 0 'False
- Font3D = 0 'None
- Height = 5295
- Left = 0
- TabIndex = 22
- Top = 0
- Width = 7935
- End
- Dim LibraryHandle As Long
- Dim z() As ALZipDir
- Sub About_Click ()
- frmAbout.Text1 = "EX24VB demonstrates the simplified interface. Double click on a"
- frmAbout.Text1 = frmAbout.Text1 + " zip file to display its contents. Selecting individual"
- frmAbout.Text1 = frmAbout.Text1 + " files shows the file's attributes. You can change the"
- frmAbout.Text1 = frmAbout.Text1 + " file and archive comments by inputing a new comment and"
- frmAbout.Text1 = frmAbout.Text1 + " pressing the Update File/ZIP Comment button, then pressing"
- frmAbout.Text1 = frmAbout.Text1 + " Write Directory."
- frmAbout.Show 1
- End Sub
- Sub Command1_Click ()
- Dim i As Integer
- Dim count As Integer
- Dim status As Integer
- ALFreeDir z()
- If File1.FileName <> "" Then
- Contents.Clear
- ALReadDir z(), File1.FileName, count, status
- For i = 0 To count - 1
- Contents.AddItem (z(i).name)
- Next i
- End If
- ' I'm not going to do a WriteDir, a Delete, or
- ' anything like that, so I'll just free up the
- ' archive handle right away
- ArchiveComment.Text = z(UBound(z, 1)).comment
- End Sub
- Sub Contents_Click ()
- Dim i As Integer
- i = Contents.ListIndex
- If i >= LBound(z, 1) And i <= UBound(z, 1) Then
- FileName.Text = z(i).name
- comment.Text = z(i).comment
- size.Text = Str(z(i).size)
- CompressedSize.Text = Str(z(i).compressed_size)
- crc.Text = Hex$(Not z(i).crc)
- Datestamp.Text = Format(z(i).month, "00/") + Format(z(i).date, "00/") + Format(z(i).year, "0000")
- TimeStamp.Text = Format(z(i).hour, "00:") + Format(z(i).minute, "00:") + Format(z(i).second, "00")
- If z(i).r <> AL_CLEAR Then ReadOnly.Value = 1 Else ReadOnly.Value = 0
- If z(i).a = AL_SET Then archive.Value = 1 Else archive.Value = 0
- If z(i).s = AL_SET Then Sys.Value = 1 Else Sys.Value = 0
- If z(i).h = AL_SET Then Hidden.Value = 1 Else Hidden.Value = 0
- If z(i).d = AL_SET Then Directory.Value = 1 Else Directory.Value = 0
- level.Text = Str(Asc(z(i).level))
- End If
- End Sub
- Sub Exit_Click ()
- Unload Form1
- End
- End Sub
- Sub File1_DblClick ()
- Command1_Click
- End Sub
- Sub Form_Load ()
- ChDrive App.Path
- ChDir App.Path
- LibraryHandle = LoadLibrary(DLLName())
- File1.Path = App.Path
- ReDim z(0)
- End Sub
- Private Sub Form_Unload (Cancel As Integer)
- ALFreeDir z()
- FreeLibrary (LibraryHandle)
- End Sub
- Sub UpdateFileComment_Click ()
- Dim i As Integer
- i = Contents.ListIndex
- If i >= LBound(z, 1) And i <= UBound(z, 1) Then
- z(i).comment = comment.Text
- End If
- End Sub
- Sub UpdateZipComment_Click ()
- z(UBound(z, 1)).comment = ArchiveComment.Text
- End Sub
- Sub WriteDirectory_Click ()
- Dim i As Integer
- i = ALWriteDir(z())
- End Sub
-